home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2004 #2 / Amiga Plus CD - 2004 - No. 02.iso / AmigaPlus / Tools / Development / AmigaTalk / user / PicComplexExample.st < prev    next >
Text File  |  2004-01-31  |  2KB  |  58 lines
  1. " ------------------------------------------------------------------ "
  2. " DisplayPic.st - Display a graphic file using the DataType classes. "
  3. " ------------------------------------------------------------------ "
  4.  
  5. Class DisplayPic :Object 
  6. ! 
  7.   dtLibrary modeID objName intuition dtTags logoPic dtAttrs
  8.   dtoTags   dto
  9. !
  10. [
  11.    new
  12.      dtLibrary <- Library new: 'datatypes.library'.
  13.      dtLibrary openVersion: 44.
  14.  
  15.      modeID    <- 0.
  16.      objName   <- String new: 80.
  17.  
  18.      intuition <- Intuition new.
  19.      dtTags    <- DataTypeTags new.
  20.  
  21.      logoPic   <- DataType new.
  22.  
  23.      dtAttrs   <- Array new: 5.
  24.      dtoTags   <- Array new: 7.
  25.  
  26.      dtAttrs at: 1 put: (dtTags systemTag: #DTA_ObjName).
  27.      dtAttrs at: 2 put: (amigatalk getStringAddress: objName).
  28.      dtAttrs at: 3 put: (dtTags systemTag: #PDTA_ModeID).
  29.      dtAttrs at: 4 put: (amigatalk getIntegerAddress: modeID).
  30.      dtAttrs at: 5 put: 0.
  31.  
  32.      dtoTags at: 1 put: (intuition systemTag: #GA_Relverify).
  33.      dtoTags at: 2 put: 1.
  34.      dtoTags at: 3 put: (intuition systemTag: #GA_Immediate).
  35.      dtoTags at: 4 put: 1.
  36.      dtoTags at: 5 put: (dtTags systemTag: #DTA_DataType).
  37.      dtoTags at: 6 put: 0.
  38.      dtoTags at: 7 put: 0.
  39. |
  40.    cleanup
  41.      dto disposeDTObject.
  42.      dtLibrary close
  43. |
  44.    viewPic: filename
  45.      self new. 
  46.  
  47.      dto <- logoPic newDTObject: filename tags: dtoTags.
  48.  
  49.      (dto == nil)
  50.         ifTrue: [ logoPic translateDTErrorNum print.
  51.                   ^ nil  
  52.                 ].
  53.  
  54.      dto getDTAttrs: dtAttrs.
  55.      ...
  56.      self cleanup.
  57. ]
  58.